home *** CD-ROM | disk | FTP | other *** search
/ Learn Microsoft Visual Basic 6.0 Now / Learn Microsoft Visual Basic 6.0 Now (Microsoft Press)(X03-58607)(1998).ISO / media / chap09 / b09d015.cc2 < prev    next >
Text File  |  1998-06-07  |  896b  |  21 lines
  1. 0, Your assignment in Lab 9 is to create a 
  2. 3, rate function in a standard module that 
  3. 6, computes the win rate for the Lucky 
  4. 7, Seven program. The rate function should 
  5. 10, determine the win rate by dividing the 
  6. 12, number of spins by the number of jackpot 
  7. 14, hits. To calculate this rate, you'll also 
  8. 18, need to create and use two public 
  9. 20, variables. When you run the program, it should 
  10. 24, show the win percentage in the lower left 
  11. 26, corner of the screen. For the first 
  12. 30, five spins, the rate stays at one hundred. 
  13. 33, You're hitting the jackpot every time. 
  14. 36, As you continue to click, however, 83%, 
  15. 40, 71%, 75%, another win, 66%, and 60% for a 
  16. 49, total of six for ten. If you continue 
  17. 52, spinning, the rate hits about 28%, the 
  18. 57, statistical average rate for the program. 
  19. 61, Actually, pretty poor odds. Better keep 
  20. 63, that day job.
  21. 67, END